home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / syslog.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.2 KB  |  58 lines
  1. sub LOG_KERN {(0<<3);}
  2. sub LOG_USER {(1<<3);}
  3. sub LOG_MAIL {(2<<3);}
  4. sub LOG_DAEMON {(3<<3);}
  5. sub LOG_AUTH {(4<<3);}
  6. sub LOG_SYSLOG {(5<<3);}
  7. sub LOG_LPR {(6<<3);}
  8. sub LOG_NEWS {(7<<3);}
  9. sub LOG_UUCP {(8<<3);}
  10. sub LOG_LOCAL0 {(16<<3);}
  11. sub LOG_LOCAL1 {(17<<3);}
  12. sub LOG_LOCAL2 {(18<<3);}
  13. sub LOG_LOCAL3 {(19<<3);}
  14. sub LOG_LOCAL4 {(20<<3);}
  15. sub LOG_LOCAL5 {(21<<3);}
  16. sub LOG_LOCAL6 {(22<<3);}
  17. sub LOG_LOCAL7 {(23<<3);}
  18. sub LOG_NFACILITIES {24;}
  19. sub LOG_FACMASK {0x03f8;}
  20. sub LOG_FAC {
  21.     local($p) = @_;
  22.     eval "((($p) &  &LOG_FACMASK) >> 3)";
  23. }
  24. sub LOG_EMERG {0;}
  25. sub LOG_ALERT {1;}
  26. sub LOG_CRIT {2;}
  27. sub LOG_ERR {3;}
  28. sub LOG_WARNING {4;}
  29. sub LOG_NOTICE {5;}
  30. sub LOG_INFO {6;}
  31. sub LOG_DEBUG {7;}
  32. sub LOG_PRIMASK {0x0007;}
  33. sub LOG_PRI {
  34.     local($p) = @_;
  35.     eval "(($p) &  &LOG_PRIMASK)";
  36. }
  37. sub LOG_MAKEPRI {
  38.     local($fac, $pri) = @_;
  39.     eval "((($fac) << 3) | ($pri))";
  40. }
  41. if (defined &KERNEL) {
  42.     eval 'sub LOG_PRINTF {-1;}';
  43. }
  44. sub LOG_MASK {
  45.     local($pri) = @_;
  46.     eval "(1 << ($pri))";
  47. }
  48. sub LOG_UPTO {
  49.     local($pri) = @_;
  50.     eval "((1 << (($pri)+1)) - 1)";
  51. }
  52. sub LOG_PID {0x01;}
  53. sub LOG_CONS {0x02;}
  54. sub LOG_ODELAY {0x04;}
  55. sub LOG_NDELAY {0x08;}
  56. sub LOG_NOWAIT {0x10;}
  57. 1;
  58.